home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / CPPaint d1.adf / PPaint_Prefs / PP_Locale / PP_DiskReset next >
Text File  |  1977-12-31  |  4KB  |  123 lines
  1. ; Copyright (C) Cloanto (R) 1992, 1993  All Rights Reserved  Reproduction Prohibited
  2.  
  3.  
  4. ; Reset Personal Paint Disk Name
  5.  
  6. Assign >NIL: " PPaint:" EXISTS
  7. If NOT WARN
  8.    Relabel >NIL: " PPaint:" PPaint
  9.    EndIf
  10.  
  11. Assign >NIL: "Copy of PPaint:" EXISTS
  12. If NOT WARN
  13.    Relabel >NIL: "Copy of PPaint:" PPaint
  14.    EndIf
  15.  
  16. Assign >NIL: Copy_of_PPaint: EXISTS
  17. If NOT WARN
  18.    Relabel >NIL: Copy_of_PPaint: PPaint
  19.    EndIf
  20.  
  21. PPaint:c/Print >RAM:PP_WriteOK ";"
  22. Copy >NIL: RAM:PP_WriteOK PPaint:PPaint_Prefs/PP_Locale
  23. Delete >NIL: RAM:PP_WriteOK
  24. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_WriteOK
  25.    PPaint:c/Print "Error during Personal Paint disk configuration."
  26.    Wait 3 SECS
  27.    Skip End
  28.    EndIf
  29.  
  30.  
  31. ; Reset Personal Paint Startup-Sequence Local Texts
  32.  
  33. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.eng
  34.    Rename PPaint:s/Startup-PPLclTxt PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.eng
  35.    EndIf
  36.  
  37. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.deu
  38.    Rename PPaint:s/Startup-PPLclTxt PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.deu
  39.    EndIf
  40.  
  41. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.ita
  42.    Rename PPaint:s/Startup-PPLclTxt PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.ita
  43.    EndIf
  44.  
  45.  
  46. ; Reset Personal Paint Startup-Sequence Local Commands
  47.  
  48. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.eng
  49.    Rename PPaint:s/Startup-PPLclExe PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.eng
  50.    EndIf
  51.  
  52. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.deu
  53.    Rename PPaint:s/Startup-PPLclExe PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.deu
  54.    EndIf
  55.  
  56. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.ita
  57.    Rename PPaint:s/Startup-PPLclExe PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.ita
  58.    EndIf
  59.  
  60.  
  61. ; Reset Personal Paint User Interface Language Preferences
  62.  
  63. PPaint:c/Print > PPaint:PPaint_Prefs/Startup_A.set "PPAINT SETTINGS*N; Country and Language Dependent Settings*N"
  64.  
  65.  
  66. ; Set Personal Paint 1.x/2.x-3.x Icons
  67.  
  68. Version >NIL: graphics.library 36
  69. If WARN
  70.   If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13
  71.     PPaint:c/Print >RAM:MEMO_NEWCOL ";"
  72.     CD PPaint:PPaint_Icons_1
  73.   EndIf
  74. Else
  75.   If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13
  76.     PPaint:c/Print >RAM:MEMO_NEWCOL ";"
  77.     CD PPaint:PPaint_Icons_2
  78.   EndIf
  79. EndIf
  80.  
  81. If EXISTS RAM:MEMO_NEWCOL
  82.   Copy PPaint:c/CopyIcon RAM:
  83.   RAM:CopyIcon >NIL: -r def_Disk PPaint:Disk
  84.   RAM:CopyIcon >NIL: -r def_PPaint PPaint:PPaint
  85.   RAM:CopyIcon >NIL: -r def_Config PPaint:English
  86.   RAM:CopyIcon >NIL: -r def_Config PPaint:Deutsch
  87.   RAM:CopyIcon >NIL: -r def_Config PPaint:Italiano
  88.   RAM:CopyIcon >NIL: -r def_InstallPPaint PPaint:InstallPPaint
  89.   RAM:CopyIcon >NIL: -r def_PPaint.man PPaint:PPaint.man
  90.   RAM:CopyIcon >NIL: -r def_PPaint_PS PPaint:PPaint_PS
  91.   RAM:CopyIcon >NIL: -r def_CloantoAudio PPaint:CloantoAudio
  92.   RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Prefs
  93.   RAM:CopyIcon >NIL: -r def_Settings PPaint:PPaint_Prefs/Startup_1.set
  94.   RAM:CopyIcon >NIL: -r def_Settings PPaint:PPaint_Prefs/Startup_2.set
  95.   RAM:CopyIcon >NIL: -r def_UIText PPaint:PPaint_Prefs/UIText.#?
  96.   RAM:CopyIcon >NIL: -r def_Brush PPaint:PPaint_Prefs/UIColors.#?
  97.   RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Tools
  98.   RAM:CopyIcon >NIL: -r def_AskAssign PPaint:PPaint_Tools/AskAssign
  99.   RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Icons_1
  100.   RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Icons_2
  101.  
  102.   Copy PPaint:Shell.info RAM:PP_Shell.info CLONE
  103.   Copy PPaint:Preferences.info RAM:PP_Preferences.info CLONE
  104.  
  105.   Version >NIL: graphics.library 36
  106.   If WARN
  107.     RAM:CopyIcon >NIL: -1 -r RAM:PP_Shell PPaint:Shell
  108.     RAM:CopyIcon >NIL: -1 -r RAM:PP_Preferences PPaint:Preferences
  109.     PPaint:c/Print >PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13 ";"
  110.   Else
  111.     RAM:CopyIcon >NIL: -2 -r RAM:PP_Shell PPaint:Shell
  112.     RAM:CopyIcon >NIL: -2 -r RAM:PP_Preferences PPaint:Preferences
  113.     Delete PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13 QUIET
  114.   EndIf
  115.  
  116.   Delete RAM:PP_Preferences.info QUIET
  117.   Delete RAM:PP_Shell.info QUIET
  118.   Delete RAM:CopyIcon QUIET
  119.   Delete RAM:MEMO_NEWCOL QUIET
  120. EndIf
  121.  
  122. Lab End
  123.